home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48hor1 / t24.src < prev    next >
Text File  |  1991-10-19  |  4KB  |  180 lines
  1. %%HP: T(3)A(D)F(.);
  2. @ T24 game, by Mike Rovak
  3. DIR
  4.   PLAY
  5.     \<< STD DEC 64
  6. STWS ERASE CLEAR
  7.       IFERR 'SAVL'
  8. RCL
  9.       THEN CLEAR 1
  10. 20
  11.         FOR j j
  12.         NEXT
  13.       ELSE OBJ\->
  14. DROP 'SAVL' PURGE
  15.       END 1 20 UD {
  16. # 37d # 5d } {
  17. # 37d # 13d } LINE
  18. { # 37d # 13d } {
  19. # 93d # 13d } LINE
  20. { # 93d # 13d } {
  21. # 93d # 5d } LINE
  22. SH3 3 FREEZE { {
  23. "\<-S" LS } { "S\->" RS
  24. } { "FLIP" FLIP } {
  25. "MIX" MIX } {
  26. "SAVE" SAVE } {
  27. "QUIT" QUIT } }
  28. TMENU
  29.     \>>
  30.   LS
  31.     \<< 'LS2' SH4
  32.     \>>
  33.   RS
  34.     \<< 'RS2' SH4
  35.     \>>
  36.   FLIP
  37.     \<< FL2 FL3
  38.     \>>
  39.   MIX
  40.     \<< 1 100
  41.       START RAND 3
  42. * IP 1 + MX2
  43.       NEXT SH2
  44.     \>>
  45.   SAVE
  46.     \<< 20 \->LIST
  47. 'SAVL' STO QUIT
  48.     \>>
  49.   QUIT
  50.     \<< CLEAR 0 MENU
  51.     \>>
  52.   UD
  53.     \<< \-> s f
  54.       \<< s f
  55.         FOR j 21 j
  56. - PICK j DC
  57.         NEXT
  58.       \>>
  59.     \>>
  60.   DC
  61.     \<< \-> c n
  62.       \<< PICT n DC3
  63. c DC2
  64.       \>>
  65.     \>>
  66.   DC2
  67.     \<< \-> c
  68.       \<< PIECE c GET
  69. REPL
  70.       \>>
  71.     \>>
  72.   DC3
  73.     \<< \-> n
  74.       \<< 'L' n GET
  75.       \>>
  76.     \>>
  77.   FL2
  78.     \<< 1 5
  79.       START LS2
  80.       NEXT 4 ROLLD
  81. SWAP ROT 1 5
  82.       START RS2
  83.       NEXT
  84.     \>>
  85.   FL3
  86.     \<< 2 5 UD 3
  87. FREEZE
  88.     \>>
  89.   LS2
  90.     \<< 20 ROLL
  91.     \>>
  92.   RS2
  93.     \<< 20 ROLLD
  94.     \>>
  95.   SH2
  96.     \<< 1 20 UD 3
  97. FREEZE
  98.     \>>
  99.   SH3
  100.     \<< { # 0d # 0d }
  101. PVIEW
  102.     \>>
  103.   SH4
  104.     \<< \-> p
  105.       \<< DEPTH 20
  106.         IF >
  107.         THEN SH3 1
  108. SWAP
  109.           START p
  110. EVAL
  111.           NEXT SH2
  112.         ELSE p EVAL
  113. SH2
  114.         END
  115.       \>>
  116.     \>>
  117.   MX2
  118.     \<< \-> n
  119.       \<<
  120.         CASE 'n==1'
  121.           THEN LS2
  122.           END 'n==2
  123. '
  124.           THEN RS2
  125.           END FL2
  126.         END
  127.       \>>
  128.     \>>
  129.   L { { # 25d # 0d
  130. } { # 39d # 0d } {
  131. # 53d # 0d } {
  132. # 67d # 0d } {
  133. # 81d # 0d } {
  134. # 95d # 0d } {
  135. # 107d # 8d } {
  136. # 119d # 16d } {
  137. # 119d # 29d } {
  138. # 107d # 37d } {
  139. # 95d # 45d } {
  140. # 81d # 45d } {
  141. # 67d # 45d } {
  142. # 53d # 45d } {
  143. # 39d # 45d } {
  144. # 25d # 45d } {
  145. # 13d # 37d } {
  146. # 1d # 29d } { # 1d
  147. # 16d } { # 13d
  148. # 8d } }
  149.   PPAR {
  150. (-6.5,-3.1)
  151. (6.5,3.2) X 0 (0,0)
  152. FUNCTION Y }
  153.   PIECE {
  154. GROB 11 11 FF70306010401340124012401240174010403060FF70
  155. GROB 11 11 FF70306010401740144017401140174010403060FF70
  156. GROB 11 11 FF70306010401740144017401440174010403060FF70
  157. GROB 11 11 FF70306010401540154017401440144010403060FF70
  158. GROB 11 11 FF70306010401740114017401440174010403060FF70
  159. GROB 11 11 FF70306010401640114017401540174010403060FF70
  160. GROB 11 11 FF70306010401740144012401140114010403060FF70
  161. GROB 11 11 FF70306010401740154017401540174010403060FF70
  162. GROB 11 11 FF70306010401740154017401440174010403060FF70
  163. GROB 11 11 FF7030601040D840945094509450D94010403060FF70
  164. GROB 11 11 FF7030601040DC40984098409840DD5010403060FF70
  165. GROB 11 11 FF7030601040DC5090509C509440DD5010403060FF70
  166. GROB 11 11 FF7030601040DC5090509C509050DD5010403060FF70
  167. GROB 11 11 FF7030601040D45094509C509050D15010403060FF70
  168. GROB 11 11 FF7030601040DC5094409C509050DD5010403060FF70
  169. GROB 11 11 FF7030601040D85094409C509450DD5010403060FF70
  170. GROB 11 11 FF7030601040DC50905098409440D54010403060FF70
  171. GROB 11 11 FF7030601040DC5094509C509450DD5010403060FF70
  172. GROB 11 11 FF7030601040DC5094509C509050DD5010403060FF70
  173. GROB 11 11 FF7030601040D9401550D5505450D94010403060FF70
  174. GROB 11 11 FF7030601040DD401940D9405840DD5010403060FF70
  175. GROB 11 11 FF7030601040DD501150DD505440DD5010403060FF70
  176. GROB 11 11 FF7030601040DD501150DD505050DD5010403060FF70
  177. GROB 11 11 FF7030601040D5501550DD505050D15010403060FF70
  178. }
  179. END
  180.